


L 


& 90S9 920 


AOA AMAT 





_ wa” —— ———— a g — —— = —— eee ee SS ee 


el, text /no subfile of # 

ee, text /directory full/ 

e3, text / not founds 

eH=e645 /text/field 9 

e5, text / not assigneds 

e6, text /can't assign field / 

eT; text /illegal field number/ 

ed, text / has subfiles/ 

elt, text /tape error # 

e12, text /tape fullf 

e13, text /anomalous directory/ 

e14, text /anomlous text 

y aa text /no write permit, type an "r" to try again 

e20, text / 1/ 

e2e, —_ ee Pa not match = both are ok# 

ec3, text 1 @ . 

e2l, text /anomalous tapes — ~edl, tenet Jaf v 

ees, text /hardware failures 

e26, text /write not allowed / 

ee7, text /drum error 

e30, text /tape 

ot text / busy 

pe text /push down capacity exceeded 
[nacevvate 


ie 
l 


\s/ 


o/ 


/format of directory entries 


/word Og 
/word 1¢ 
/word 2¢ 
/word 3¢ 
/word 4» 
f 


/ 


= 0 Ww bl | 
pointer to next block on this level (0 => NP mere blek: | I) 


4st three chars of name 


end three 

3rd three =" | , 

pointer to value Lo = Llecle ‘ww, Awe Chain, 

bit O => value is a filegotherwise, list of subfiles 


if bit O = 1 then the format of word 4 is the same as the 
format of a tape block word 


/ntb contains pointer to directory 
/ntb+L contains free directory block list 
/ntb+2 to ntb+777 contain 146 directory blocks 


/format of tape block entries in directory 

/each word has bit 0 = 1 

/the right half of each word is a pointer to the next tape block 
/obits 2-8 of each word indicate the number of all-zero blocks to be 
/placed before the next block 


fa right 


half that is all O indicates that this is the last block of 


fa file that is nonzero. All zero blocks may follow. 
/dbt to dbt 777 contains 1000 tape block words 


fn file system and the directories occupy tape blocks O-11 and 
(173-771. 
The tape name is encoded in the zero block field (bits 2-8) of 
dbt to dbt 114 


These blocks are clfined together starting at word O. 





1 ae 
round file -#jun7!1 


ffb_=12 /first free tape block 

bs_=2 /block spacing 

ebuf_=7600 /edit list 

whuf_=7700 /drum work buffer (small swaps) 
bbuf_=7740 

b=bbuf+32 Pe «tS 2937% 

tbhuf) =6000 /tape buffer 





0/ jmp in /entry to update file system 


org_=1 00 latest = 


lo pi _— 
ors / +6642, /date 
hit 
TXAP] 
law 16 
dap tvk 
Lio CUffb-7T Jxi+i 
law 500 
tvk, ivk /tape ivk 
imp «nf 
frrs iam : 
lem 
law 34 
5 RE Ry ivk 100 


{ me oF i ae -* iv 


Rebel “™ tN, ‘yy ‘a 


deck, dzm ;dcna /directory checker 
dzm ;dcnb 
dzm ;bck 
lac ,.nop 
dac tyo, 
dap dcf 
jmp pa 
dcaa, adm dcnb 
dca, Lac .ivkd 
dac tyo, 
law pdl 
dap pdp 
law 600 
dap dcf 
lac dbt +4 /number of usable blocks (usually 766) 
sas dcna 
jmp erb /wrong number of tape blocks 
law 146 
sas decnb 
jmp erb /wrong number of directory entries 
dsd, sp cr 


constant 


erp, 


bai: 


rst, 


r$i% 


rsp, 
rsa, 


rsd, 


rsb, 


werd, 


xet deft 
jmp ptt 
jdp car 
TAXA 
jdp prz 
lai 

jdp ocp 


law pdl 
dap pdp 
jmp rsp 
TXA 

jdp flh 


Ixr (ntb+2 


Lac i 4 
TAAP| 
jmp rsj 
TAAM 


and (200000 


TA=| 

jmp rsb 
lac i 4 
jydp uch 


law i 0° 


dac i 4 


lac ntb+tl 


dac i @ 
law ntb 
XMAA 


dac ntb+tl 


law 5 
N+XAX 


sas (ntb+!1000 


ymp rsa 
skp 3 
jmp q 
skp 20 
jdp wdy 





/print number of blocks 


/reset, garbage collect 


in bottom 


/“write directory’ command 


level 


file 


cf, 


cm, 





cla 7 /command loop 


lac .add /400000 
dac ;ftp /file type 
law i 3 /number of retries on tape error 


jsp ll /get command 
nop | i 

A+XX | /er 

ZX /space 


dip thbd 

Lio (770000 
lac f{ tbl 
dap dsd 

xor van 


jmp dck /dispatch on command 


tbl, 


thd, 


you, 


bin, 


rwd, 


VD Ty 


660000 
650000 
610000 
220000 
240000 
640000 


670000 ; 


430000 
510000 
470000 
230000 
450000 
620000 
150000 
160000 


q 

470000 
470000 
000000 
650000 
670000 
620000 
450000 
200000 
0710000 
020000 
030000 
040000 
050000 
060000 
070000 
300000 
230000 
260000 





nezz 
sys 
Sys 
sys 
Sys 
sys 
sys 
sys 
sys 
you 
ptt 
wrd 


510000 rwd 


q 


jdp rew 
jdp car 


ZXIA 
dsm 


Ixr 
jmp yo 


jdp 
jmp .+ 
ior 
dac | 


a 


gtft 


2 


erg 
(500000 


d 


jmp wre 


law f 


0 


(apat-T 


AGC 
dac 
jmp 


tvk 
vbf+/] 
cd 


/file 

/edit 

/append 

/save 

/unsave 

/delete 

/ go 

/loeadzgo 

/rename 

Jjprint File 

/text 

/assemble 

/binary 

/append block (for FORTRAN) 
/read block (for FORTRAN) 


/print all 
/print top 
/null 

Jedit 

[go 

/back to ID 
/assemble 
/tape 0 
/tape |] 
/tape 2 
/tape 3 
/drum filesys 
/drum FORTRAN 
/drum tape 6 
/drum tape 7 
/tape name 
/print totals 
/write directory 
/rewind tape 


level 


/~back* command 


/~ you~ command 


/~binary~ command 
/comma 


/set mode to binary 


/~rewind~ command 


/nop 


Cia, 
tis 


tle, 


tbs, 


dap 
Law 
dap 
dap 
Lar 
dzm 
SX XP 
jmp 
law 
ivk 
X+¥AP 
jmp 
lia 
sad 
jmp 
[xr 
sad 
jmp 
SX X I 
jmp 
sad 
jmp 
dac 
lac 
sas 
idx 
jmp 
Law 
add 
sas 
dac 
aam 
dzm 
jmp 


ell 

vbf 

tic 

Lp4 

(-20 

i pnut20 


~ 72 
tbuf 
& 
tia 
] 
(40 
cd 

( =3 
i Cit+Z 
Lla 
> 
273 
‘72 
ths 


dvb 
tie 
EEC 
tia 
| 7 
tic 
.donu 
zi<¢ 


tle 
tia 


/ltisten loop 


/for FORTRAN 


/flush leading spaces 


/center dot 


/space, C.fr., Or comma 


/backspace 
/put character in buffer 
/dac vbf+l1 


/remove character from buffer 


/dac vbf-] 


lla, 


eer, 


Lp4, 


lp2, 


dpnus, 


Lle, 


dzm 
dio 
ZX 

law 
dap 
SK X 
lac 


vbf+11 
ios 


ect 
Lp2 


TATAP| 


jmp 
xEtT 
adm 
Law 
AMI= 


Lle 


i van-l 
20 


Lp2 
(xet .cet +3 
cer 
Lp4 
Lp3 


etb-tbl +] 





/character packer 


/assemble packed character string 


/if non-numeric character 


/400000 
/assemble octal number 


/return, with appropriate skip 


/used in command loop 


</ 








me ae oe = ao @ *. I'S 
‘ OPN Sele ee ere 5 hind 2 Ee 
“~— tn or CS ~ tee Sel 
ye SF eer tre Se a ee ee > a 


ze = ae ae a 
~~ ee : " Sidwraat ake. a , E-2 2 
a he ee haH jae - J 





Get. 


eNOD : 


ae 


SYS, 


SY, 


jsp 


6s 
6s 


eya 


/skip twice 


/skip 
/don’t 


ee io hal” a ae i ar “4°, 


/new tape drive number 


skip 


/assign it 


/busy 


/try rewinding it 
/not ready 
/clears I 


Jstart 


/can’t assign tape ... 


text /can’t assign / 


text /tape 


Law 
jdp 
lac 
jdp 
jsp 


el7 
txp 
aff 
ocp 
ex 


/tape 


text / not ready:/ 


it 


wee NOt ready 





a a ) 
6, ee 
) 


*5*, commands 





gef, 


eadntbs, 
gea-l, 
Sea, 
~al7?7 3, 


dap gee 


dzm ;sga 


elf 6 


clavclf 5 


add ntb 
dac sfp 
ySp- 11 

add 777 


ee Se! ———— ee 


/get file name 


/, 


TXA| Set 
jmp gem /space 
stf 6 
adm gee 
zem, dzm ;ge2 
[xr (ntb 
gen, lac sfp 
skp 5 
jmp guc 
X>AXP| 
jmp gun 
law ntb 
At+AX I 
tac | @ 
dsfps, dac sfp 
lac van 
sZza | 
jmp gou 
sas i ] 
jmp geo 
lac van+l 
sas i 2 
jmp geo 
lac vant+2 
sas i 3 
jmp geo 
TAX I 
dio sga 
skp 6 
jmp got 
lac i 4 
sma 
jmp gea-l 
Law el 
10D tkD 
yoa, jdp prn 
jmp cd 


geuU, /found a match at this level 


Jno subfile of ««. 


Bua, 


gub, 


SUC, 


ZOOS, 


gou, 
got, 


Zee, 


adm pdp 


sad (dac od 


jmp erg+l 
lac .add 
Ret guc 


jmp erg 
jmp 





/400000- 


/400000 





Seo, 


Sep, 
ger, 


BES, 


nom, 


er3, 


skp 
jmp 
law 
dap 
law 
dap 
lac 
Lio 
sni 


2 
gen 
I 
8ep 
van 
ger 
i 


A$IP| 


jmp 


and (777700 


A$IP 
jmp 


and (770000 


A$IP 
jmp 
idx 
idx 
sas 
jmp 
idx 
TXXA 
dac 
jmp 


xr 
Lio 
Law 
dap 
law 
A+II 
jmp 
law 
TI< 
jmp 
j dp 
ix 
jdp 


ges 


zes 


gen 
zer 
Sep 
~laci4 
sep 
Tez 


aSey 
gen 


gey 
sez 
600 
stm 
a 
zeu 
e23 


ex 
car 
(van-l 
orn 


/look for partial match 


/no match 


/no exact match 
/partial match flag 
/accept partial match 


/ambiguous 
fen NOC Found 


jsp ex 
text / not found:/ 


gfa, 


pdp, 


erZ, 


car, 


uch, 


0 
skp i 2 
JmMp nom 
lac ntb+ti 
TAIAP| 
jmp er2 
dac sfp 
add (ntb 
TAXA 

dac pdl 
idx pdp 
lac [| @ 
dac ntb+tl 
law fi 
dac |} 
dzm i 
jmp i 


/get new directory entry 


/no perfect match 


/directory full 
/point things at the new entry 


/remember in case of error 


jsp ex 
text //7//directory fult:/ 


0 

law 77 
XxCE £YO, 
ymp fi car 


0 

xor .add 
and .a777 
TAAD 

jmp ft uch 
add (¢dbt 
dap ,+2 
dap ,.+2 
lac 

dzm 

jmp uch+l 


forint Cel 


/release tape block entries 
/400000 
1400777 


fib, 


Tig, 


0 

dac ;fla 
TAX 

lac i 4 
ral 7s 

spa 

jinp i fF th 
Ixr fla 
lac i 4 
SPq 

jmp flb 
add (ntb+4 
dap ,+l 
lac 

and (200000 
SZa 

jmp flb 
law ntb 
[fio ft ¢ 
A+IxX 


snii 
jmp ond 
jimp- fFti: 


Lac (200000 
ior i 4 
dac i 4 
fio 61 C6 
dzm i 0 
dio ;fle 
TII[M 

imp | TL 
Law ntb 
dac ;svl 
XMAA 
sad ntb 

imp fod 

dac 3fFIiT 

ixr (-776 

[io ,a@5 

sad i ntb+/1000 
jmp fpd 

sad i ntb+!l004 
jmp fp4 

X+IX>= 

jmp Tle 

jmp fpl 





/flush file completely 


eC ee ee ee Te PR NT Sey TEES EIN TEN MeN CERT TUM UE MAY yh ey ome .e” “= TY er = a eee ae ae: Le Pe !C,!DCUlUMmh eee ee ee eee 
7 ’ : pei x 1 rn 


fol, 


fp5, 


wdy, 
wtd, 


ery» 


law 
skp 
law 





ntb+1000 
i 
ntb+!I004 


A+XAX 


dac 
lac 
dac 
law 
add 
sas 
jmp 
jmp 


dijo 
jmp 


0 

skp 
jmp 
Lio 
law 
xct 
jdp 
lac 
sas 
jmp 
Lia 


lac. 


xet 
jdp 
law 
dap 
jmp 


jsp 


sv l 
fle 
ae 
ntb 
TUT 
fla 
flz 
i flh 


ntb 
i fin 


/write directory 
/skip if directory is to be rewritten 

i wdy 

(f fb-2 

tbuf 

tv k 

toe 

tbuf +3 

dbt +3 

ery /wrong tape 

(40000+ffb-4 

eadntb /4000004+ntb 

tvk 

tpe 

0 

wtd 

i wdy 


ex 


text /wrong tape, can’t rewrite directory:/ 





el, text //77/no subfile of :/ 
eb, text /can’t assign / 
e4, text /field :/ 

/ e7, text /illegal field number:/ 

| eld, text //77/no text:/ 
elZ2, text /tape full:/ 
el4, text /anomalous text - 3/. 
el 5, text /no write permit, type a character to try again/77/:/ 
efi, text /text file:/ ' 
e272, text //77/partial match not allowed:/ 
e23, text //77/ambiguous :/ 


CXDs 0 /text printer 
dap txy 


idx txy 
txy+Z, lac (607600 

2rcl 6s 

sad .lai 

jmp i txo 

Sad .swp 

jmp txy 
L¥O~ % ivk 100 

jmp txyt2 


prn, 0 /file name printer 


prn+s, tte 7 
of fs sni 


prs, idx prn+3 


sad (777 /must be > 146*2 


gnu, 0 /get number from input 


et? 72 /cr typed 


erg, jdp car /question mark 


gtf, 


gtt, 


sfl, 


saf, 


0 
jsp 
idx 
TXX I 
law 
K+AA 
dap 
dap 
lac 
dac 
spa 
jmp 
add 
skp 
TAX 
sad 
jmp 
me, 
jdp 
jdp 
jsp 
text 


0 
jdp 
$za 
jdp 
skp 
idx 
jmp 


gef 
xt f 


4 


gtt 


car 
prn 
} 


gnu 


saf 

2 

gf il 

i ett 


fzi7 
jaff 
.a77 
6S 
jafz 
6s 
arty 
i-[mta 104] 
Civk 
fiv 
aff 

i saf 





/get bottom level file 


/find single subfile 


Jeeos Nas Subfites 


x | 
/ has subfiless:/ 


/set field number 


/if cr typed 


/set up drum field pointers 


ero, 
eQyda, 


ey, 


OCD, 


opat, 


opb%, 


law eé 
jdp txp 
lac aff 
jdp ocp 
jmp cd 


Lio opb 
ret 35 
sni 

imp «“E 
A>IAP 
sni 

law 20 
REE CVO.< 
Law 0 
rel 3s 
A>IAP 
jmp opa 
jmp i ocp 





Jean’t assten fleld ..«. 


/octal print 


ET, 


er/7, 
e7f, 
era, 
eX, 


cd, 


sff, 


cda, 


tfb, 


orf, 


tfa, 





0 /test and assign field 
law i 200 

and aff 

TA TA>= : 

jmp er7 /illegal field number 
sad aff 

jmp tfb /pseudo field 

SzZa 

sub (27 

spa 
jmp | 
Law e7 /itlegal field number 
skp i 

Law el 0 /no text 

jdp txp 


skp i /center dot 
jmp rem 

lac syr 

skp i 

mta 204 

law i 7 

adm pdp . 
sad .dsfp /dac pdl-l 
jmp rst 

dap ,+l 

lac 

jap fih 

jmp cda 


icx £F 

law 17 

skp i 

Law 77 

A« IAP 

A$IP 

jmp er7 /illegal field number 
mta 400 

$Zza 

ior C7777 

sas (757777 

sad (57777 

imp | tf 

skp 2 

jmp tfa 

sad ,17777 /(47777 

imo t. tf 

xct e/7f 

jmp era /no text 

law e4 /field ... not assigned 
jdp txp 

lac aff 

jdp ocp 

jsp ex 

text / not assigned:/ 

TIA 

mta 300 

jmp eré /can°t assign 
imp ft «ET 


ren, 


0 


~add t, 


jsp 
jmp 
ctT 
skp 
jmp 
jdp 
law 
dap 
skp 
imp 
J Mp 


isp 
J mp 
law 
jda 


gef 
reo 
cr 

txp 


flexo ? 
400000 





/~delete* command 


/partial match 


a a 
/ rename’ command 


/question mark 


fit, 


T iu, 


erd, 
rem, 


/partial match not allowed 


/flush all 


subfiles 


gob, 
ROA, 


~lebuf:, 


BCu, 
zct, 


rew, 


.177773, 


erz, 


jmp 


jsp 


ex 








/*zo~ cormand 


/another comma 


/used as constant 


/can*t do in PRL 


/-10000 


/yes, two locations lose 


/rewind tape 


/deassign tape if ss6é fs down 


text /illegal with PRL:/ 


unS, 


Loc, 


rba, 


gof, 


tpe, 


Tpt, 


trt, 


jdp 
jmp 
jdp 
jmp 
Lio 
law 
ril 
spi 
jmp 
stf 
jdp 
jmp 
lac 
dac 
law 
j dp 
skp 
jmp 
Lac 
jdp 
jmp 


0 

dio 
sad 
jmp 
dap 
isp 
jmp 
jsp 
tex 


law 
jdp 
ivk 
sad 
jmp 
law 
adm 
Lio 
jmp 





x 
et f /~unsave~ command 


erg /comma typed after field 


ex /text file 


er7 /illegal field number 


/tape error. «ss 
Ses ae, 
fpt 
aff 
| CLF 
Ett /retry 
eya 
t /tape error :/ 


el 5 /no write permit 


edi, 
edz, 


APD, 


fil, 


tex, 
eed, 


eet, 


eec, 


eea, 


jsp 


law 


jdp 


law 
jmp 


idp 
isp 
J mp 


jdp 
stf 
jdp 
jmp 
jmp 
l aw 
add 
dac 
xct 
jdp 
lac 
jmp 


law 
Lio 
dio 
dap 


law 


dap 
dap 
j dp 
jmp 
dac 
idx 
jmp 





ee oo . 


/~edit~ command 


/~append~ command 
/~file~ command 


/comma 


/~text~ command 


GSC i, 


ant, 


Cep, 


een, 


eel, 


ete, 


stf 
xet 
lac 
dac 
idx 
sub 
sad 
jmp 
law 
and 
ral 
jdp 
j dp 





2 
eea 


bkp 

eeb 

eea 

(lac-dac 2 

ee | 

| 2977 

b 

6s 

saf 

a /will always skip 


131375 


law 
and 
jdp 
lac 
sad 
jmp 
add 
sub 
dac 
sub 
sub 


riz 
b 
dro 
tbuf +377 
esc 
eep 
b 
ett 
,sb 
afz 
ofs 


CAIA<M 


law 


400 


AMIX> 


jmp 
lac 
sad 
jmp 


law 
J dp 
lac 
sub 
jdp 
jdp 
lac 
add 
jmp 
lac 
dac 
jmp 


lac 
dac 
law 
mta 
law 
Lio 
ivk 
jmp 
jmp 


ant 
| tbuf-/] 
csc 
een 


ald /anomalous text - .. 
txp 

eeb 

~lebuf 

ocp 

car 

ofs 

afz 


ee ae ee TL em OM MMS a RW, ner MTN OM AP MAT EEE Sraprytp sy nm OM, aie mA pe — eo ee ee oe 
i 4 } . 





afp, 0 /test for e,t, text 


ido tf /will always skip 
eettt, 20400 


afs, law i 1 
sad afz 


jdp tf /will always skip 
mie? 10020 ° 


afr, law 37 


Lac i whuf 

sas csc 

jmp era /no text 
jmp ft afp 


net, jsp eed /*nightmare* command 
NZzZ, Law 222 

jdp saf 

law 102 

jmp gob 


aro, 


FIV, 


drb, 


droa, 


drp, 
sbf, 


0 

dac ofs 
and (37 
cma 

add (tbuf 
dac ;bsb 
dzm ;sbs 
sad (tbuf 
jmp drb 
mta 

law 7740 
and ofs 
Lia 

dac ofs 
law 40 
dac sbs 

0 

jmp dl | 
eif 6 

lace (iiii7 
and bkp 
TA IAP | 
jmp drf 
ror A/7/ 
sad (777 
jmp droa 
Ixr (-400 
dzm i thuf+400 
SXX IP 

jmp ,~2 
Law i 71000 
adm bkp 
dio 3blk 
Lac .mi 
add ofs 
spa 

jmp drp 
dac ofs 
idx aff 
jdp saf 
jap tf 


/tanpe to drum 


/0 7 @ block 


/will always skip 


/for single block read 


drob, 


sp4, 


doc, 


spl, 


spZ, 


crf, 





Ret sbFf 
jmp if dro 
lac bsb 
mta 

Lio ofs 
law 7401 
sub sbs 
AMI> 

jmp spl 
Law 420 
add sbs 
xet fiv 
jmp o~i 
Ixr (-40 
lac i tbuf+400 
dac i tbuf 
SAK P 

jmp 3 
law 400 
skp 6 

lac sp3 
adm ofs 
ixf. bik 
lac J- dbt 
TXXP ' ~ fSkip.- iF & bt6ek 
dac bkp — 
jmp drb 


iaé 120 
AMIA 

Ket fiv 
768 ,=i 
cma 16 
add (420 
dac ;3sp3 
dzm ofs 
jmp drr 


law 400 
add bsb 
sub sp3 
mta 

cli 

law 20 

add sp3 
jmp sp4 


xet. sof 
jmp erg 
law tbuf 
sub bsb 
adm ofs 
jmp ft dro 





i i ha i BO. i, | ee 





rbl, jdp gtf /~read block~ command 
jmp erg jer? 


jmp erg /comma or space 


dap sbf /only one block 


abl, atf 7Z /~append block* command 

jdp gtf 

jmp .+2 

jmp erg /comma? 

dzm ofs 

dzm hig 

lac (500000 

dac ftp 


aba, A+IXA 





ort, jsp gef /~print~ command 
skp | 
ett Z 


xct stm 
( jdp prn /print file name on partial match 
| ber. .4 
jmp prh 
pt, stf 2 /print top level 
Da, lar ntb /print all 
stf 4 
law c0 
i@p txp 
prh, TAX> 
jmp erp 
jdp crp 
dzm ;nip 
prm, TXX| = 
jmp prp 
Jap ttx 
Law ntb 
X+AX 
hic lac (dac pdl 
By ee sub pdp . 
we dac jnid 
Lio nip 
sni fi 
A$IM| 
sza 2 
jmp prq 


prv, 


pDrw, 


eSWD ey, 


phi, 


prz, 


prz+2, 


przZa, 


erb, 


Pr, 





jydp crp 
dzm nip 
Lio nid 
ZAP 


xet Evo, 
SLID 
jmp ~72 
jdp prn 
lac i 4 
sma 

jmp phi 
jdp prz 
SWD 

adm bck 
ixr f @ 
jmp prm 
lac i 0 
xct pdp 
idx pdp 
ize t 4 
jmp prm 


0 

e1 ) 

and (777 

sza | 

jmp i prz 
add (dbt 

dap prza 

a2 JA 

sas (777 

lac 

spa 

jmp prz+2 


xct def /anomalous directory 
jmp dca 

JSD ex 

text //77/anomalous directory :/ 


stf 6 
jmp prw 


prp, 


ptt, 


dcb, 


cd, 
ely 
CZs 





law i ] 


adm pdp 

dap .+/ 

[xr 

sas .dsfp /dac pdl-l 
jmp prm 

Jdp ¢crp 

skp i 4 

jmp rst 


jdp car /~totals~ command 
Ixr (-1000+ffb 
law i 7 

dac ;dcd 

cla 4 

Lio i dbt+1000 
sni 

SAA 

SX X= 

jmp .-4 

xet dcTf 

adm dcna 

jdp ocp 

law cl 

jdp txp 

SX X> 

jdp ttx 

lxr | netb 

idx ded 

lio i ntb+4 


sad (777 /must be > 146*2 


text, S277 777 1 ie blocks :/ 


text / free tape blocks/77/:/ 


text / free directory entries/77/:/ 


Crp, 


crq, 


der, 


0 
lac 





bck 


TAA|M 


jmp 
adm 
Law 
RET 
law 
skp 
xct 
lac 
jdp 
law 
skp 
KCL 
cic 
dac 
jdp 
skp 
jmp 
skp 
jmp 
jmp 


crq 
dena 
36 
tyo, 
57 

6 
EVO. 
beck 
ocp 
55 

6 
CyoO. 
6 

bck 
car 
600 

| erp 
10 
rst 

lL ro 





sav, stf 2 /*save~ command 

jdp gtf /zet file name 

jmp saa /eet,. after file name 

jdp gfil /zget field number 

jmp sab /comma after field number 
Sada, lac aff 


sab, dac sfi /beginning field of multiple field save 
jdp gfl /get ending field of save 
jmp erg /another comma? 


sae, dac ;sf2 /ending field 


jmp erg /second number smaller than first 


SaC, jdp saf 


4tbufs:, add tbuf /nop 


ucp, lac 
jdp uch /flush old file contents 
lac (500000 
dac ftp /file type 
lac sfl 
jdp saf 
law i 400 
add afz 


~~ 


drg, 


«tots 3 


wre, 





dac ofs /drum to tape 
law dbt+ffb-bs 
dap tbo 

dzm ;t 

lac t 

rar 9s 

ior ftp 

xet drd 

law 400 

adm ofs 

sub ;hig 

spa 

jmp dreg 

skp 2 

skp 4 

jmp wre fexit 
stf 4 

law 200 

and aff 

rar 6s 

ior ofs 

ral 6s 

jdp saf 

law tbuf 

mta 

Lio ofs 

law 400 

xet' fiv 

ime « “I 

CAX 

lac t 

sad .a/77 

jmp drk /store zero block anyway 
Law 0 

ior | tbuf+400 
SX X= 

jmp oy 4 

sza 

jmp drk 

idx t 

jmp drl 


law 600 
dap wtd /turn on write directory switch 
jmp rst 


drk, law i bs 
dac ;bnl 
law bs-] 
adm tbo 
skp i 4 
jmp tbp 
Lio b 
law 377 
A« IP 
dio tbuf+377 
tbp, idx tho 
sub .,lofs /tio dbt+1000 
sma 
jmp tof 
tbo, Lio dbt+ffb-bs 
sni i 
jmp tbp 
rar 9s 
SA IA 
ior ¢t 
rel 9s 
ior ftp /file type (400000 or 500000) 
drd, dac ; 
and (777 
add (dbt 
dap drd 
lac ftp 
xct drd /in case of tape error 
lac .4tbuf /4000004+tbuf 
xet tvk 
jdp tpe 
jmp dre 


tof, law dbt+ffb 
dap tho 
isp bnl 
jmp tbp /block ffb can’t be free 
law el] 2 /tape full 
jdp txp 
lac sga 
Lio Aig 
sni i /skio if append block command 
jdp flth /flush file that there was no room for 
jmp wre 


loa, 


lob, 


Ctx, 


jap gif 
jmp lob 
jdp gfl 
jmp .+2 
jmp lob 
Jdp gnu 
sza 

dac as 
skp i 2 
jmp erg 
law 600 
dap sof 
jmp loc 


0 

law i 2 
A+XA 

mul (7 
div .+l 
law 1000 
XMA>P 

sni i 

jmp erb- 
jmp i ttx 


/~loadgo~ command 
/e.r. after file name 
/comma tyned after field number 


/skip if nothing typed at all 


/comma typed after starting address 


/check validity of ntb pointer 


constants 
repeat 


[ffb-4 ]*400+org/ 


Lo! iE By 
abt »y 


ofs, 


PNU » 
VoT» 
van, 
ipl, 


Sfp, 
pdl, 


variables 


ntb+1000/ 
dbt+1000/ 


ofs+!1/ 


pnutl / 
vbf+12/ 
van+4/ 
Lp? +1/ 


sfpt+l/ 
odl+146/ 


/inttialization 


6000/ 


in, 


inc, 


ina, 


int, 


iam 
law 
dap 
law 


Lia 


xcet 
hilt 
lac 
and 
sas 
jmp 
law 
dap 
lac 
dac 
jmp 
Lac 


dac t 


law 
jdp 
law 
dap 
Lac 
sza 
Law 
dac 
jmp 
law 
dap 
jmp 


16 
tvk 
ntb 


if2,(printo [ffb-4]*400+org-, printe 77] 


(40000+f fb-4 


tvk 


dbt +117 
(400777 
(400773 
ina 
dbt-1 
ine 

(jdp ing 
ti 

ind 

Civk 200 


i 7773 
uch 
inf 
dsd 
dbt +4 
l 

766 
dbt +4 
deck 
er 
dsd 
inh 


/Thiel system 


/check directory 


itn, 


ind, 


[to, 





ine 

law ima 
jdp txp 
ixr (dbt=] 
jdp prn 
law imb 
jdp txp 
jsp Ll 
nop 

nop 

lac van 
sza |i 

jmp ft itn 
inr (83 
Lt 

lac i van+t3 
A$II 

rif 3s 

dac i dbt+3 
SXXP 

jmp ito 
lac dbt+3 
dio dbt +3 
jmp f itn 


0 

idx ine 
lac 

rar 9s 
and (77 
jmp i tng 


ini, 


ink, 


inj, 


inh, 


inm, 
inn, 


ima, 
imb, 


constants 
start in 





dap tvk 

mta 400 

and (7 

jdp ocp om 
law inn 

jdp txp 

ivk 200 

sas (30 

dsm 

Ixr (-1000+ffb 
dzm i dbt+1000 
SXX= 

jmp .-@ 
clivemi 

law 2 

dac ntb+i 

TAAX 

sad (1000 

jmp inj 

law 5 

X+AA 

dac i ntb 

dio i ntb+4 
jmp ink 

dzm ntb+773 
dzm ntb 

law -766 

dac dbt+4 

Jdp itn 

lio <(Tffbsi 

lac (400000+org 
xet tvk 

jdp tpe > 

jmp rst 


text oh RLS tat be drive :, 


text //77/tape name is now 
text / /77/type in new name 


\f desivedsi7/4/ 


